r,s:rationals. (r * s) = (s * r)  rationals 

latex

Definitions	ff, tt, qinv(r), if b then t else f fi , qdiv(r; s), P  Q, t  T, P  Q, qeq(r; s), P  Q, r * s, x:A. B(x), False, nequal(T; a; b), A, A c B, int_nzero, x:A. B(x), P  Q, prop{i:l}
Lemmas	rationals wf, qeq wf2, assert wf, assert of eq int, int nzero properties, q-elim, qmul wf, assert-qeq